home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Go64!
/
Go64_2002-04_2002_CSW_Side_A.d64
/
calculate sintab
(
.txt
)
next >
Wrap
Commodore BASIC
|
2023-02-26
|
146b
|
8 lines
10 tb=4096
100 foran=0to2*(NULL)step2*(NULL)/256
200 x=sin(an)*5632
300 y=xand255:poketb,y:poketb+256,y
400 y=x/256:ifx<0theny=y+256
500 poketb+512,y:poketb+768,y
600 tb=tb+1:next